function lecuyer_setseed( seed1, seed2 )
	#seed1 = floor(seed1);
	#seed2 = floor(seed2);

	if( ! isglobal( "lecuyer_oseed1" ) )
		global lecuyer_oseed1;
		global lecuyer_oseed2;
		global lecuyer_seed1;
		global lecuyer_seed2;
	endif

	if (seed1 >= 1 && seed1 <= 2147483562 && seed2 >= 1 && seed2 < 2147483398)
		lecuyer_oseed1 = lecuyer_seed1 = seed1;
		lecuyer_oseed2 = lecuyer_seed2 = seed2;
	endif
endfunction

